COMMENT    *****  NOTEY  ***** 

READ THIS INTO SOUND GENERATING PROGRAM WHEN USING
NOTE LISTS PREPARED BY 'SCORE' PROGRAMS;

EXTERNAL FUNCTION SYNTH(ARRAY A),GEN(ARRAY B),READIN(ARRAY C),
SIN(A),COS(A),EXP(A),ALOG(A),SQRT(A),
SEG(ARRAY D), DUR(X,Y,Z),SPACE4(ARRAY A ,ARRAY B,ARRAY C,ARRAY D,ARRAY E,
ARRAY F,ARRAY G,ARRAY H),SEE(ARRAY I);
VARIABLE MAG, C,CS,D,DS,E,F,FS,G,GS,A,AS,B,I,J;
C←261.62;  CS←277.18;  D←293.66;  DS←311.13;  E←329.63;
F←349.23;  FS←369.99;  G←391.99;  GS←415.31;
A←440;    AS←466.16;  B←493.89;

ARRAY SPEEDOF(6);
SPEEDOF(1)←20000;
SPEEDOF(2)←25000;
SPEEDOF(3)←10000;
SPEEDOF(4)←50000;
SPEEDOF(5)←100000;

FUNCTION SETSPEED;
BEGIN VARIABLE I,N,T;
  EXTERNAL FUNCTION RDNUM(X);
  PRINT "Number of channels:";
  RDNUM(NCHNS);
  T←0;
  WHILE T=0 DO BEGIN PRINT "Sample rate:";
    RDNUM(N);
    FOR I←1 STEP 1 UNTIL 5 DO
      IF N=SPEEDOF(I)/NCHNS THEN T←I;
    END;
  PRINT "SPEED = ",SPEED←T;
  SRATE←N;
  MAG←512/SRATE;
  END;

SETSPEED; 1 10000	COMMENT DEFAULT = 1 CHANNEL, 10KC;
<-- F1 ARRAY MUST BE FILLED FOR INST SIMP TO PLAY;
ARRAY F1(512);
SYNTH(F1);1 1 999

INSTRUMENT SIMP;
ZOSCIL(P4,MAG*P3,P5);OUTA←OUTA+U1;
END;